home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 January to June / Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64 / dynamic power2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  524 b   |  16 lines
  1. 6000 rem--ahoy--mar issue--dynamic power2--prog page 47
  2. 60001 printchr$(147)"enter starting, ending line number:":inputs,e
  3. 60002 ifs>60000ore>60000ore<sors<0ore<0then60001
  4. 60003 input"increment lines by";in:x=s
  5. 60004 printchr$(147);"data";:i$=""
  6. 60005 geta$:ifa$=""thenprint"$[157]";:goto60005
  7. 60006 iflen(i$)>65anda$<>chr$(13)anda$<>chr$(20)then60005
  8. 60007 ifa$=chr$(20)andlen(i$)=0then60005
  9. 60008 printa$;:ifa$=chr$(20)theni$=left$(i$,len(i$)-1):goto60005
  10. 60009 ifa$=chr$(13)then60011
  11. 60010 i$=i$+a$:goto60005
  12. 60011 print"x=";x;":in=";in;":e=";e:print"goto60013":poke631,19:poke632,13
  13. 60012 poke633,13:poke634,145:poke635,145:poke636,13:poke198,6:end
  14. 60013 x=x+in:ifx>ethenend
  15. 60014 goto60004
  16.